Option Explicit
Call CreateApplicationAttribute()

'=====================================================================
'Добавить строковый атрибут в коллекцию системных атрибутов.
'=====================================================================
Sub CreateApplicationAttribute()
        Dim Coll, Adef, attr 
        
        'Получить коллекцию атрибутов текущего приложения
        Set Coll = ThisApplication.Attributes
        
        'Если текущий пользователь не системный администратор,
        'дать ему права на редактирование коллекции системных атрибутов
        If Coll.Permissions.SysAdmin <> TRUE Then
                Coll.Permissions = SysAdminPermissions
        End If
        
        'Найти в приложении первый тип атрибута tdmString 
        For Each ADef In ThisApplication.AttributeDefs
                If Adef.Type = tdmString And Coll.Has(ADef.SysName) <> TRUE Then
                            'Создать в коллекции системных атрибутов новый строковый атрибут 
                            'и задать ему значение
                            Set attr = Coll.Create(ADef)
                            attr.Value = Adef.Description & "; Created by " & ThisApplication.CurrentUser.Description
                            MsgBox "Успешно создан атрибут базы данных "  & attr.Value & ".", vbInformation
                            Exit Sub
                End If
        Next

        'Иначе сообщить, что ни одного текстового атрибута в приложении еще не создано
        MsgBox "В приложении нет ни одного типа атрибута с типом данных tdmString.", vbInformation
End Sub
'P.S. Результат работы скрипта можно посмотреть через интерфейс
'(Системные -> Параметры... -> Атрибуты)
'=====================================================================